EROS 2/EROS 2.iso/mac/EROS vol.2/EROS vol.DXR/00271.ls

Text File | 1995-12-20 | 1.3 KB | 45 lines

on m4
  global md1, rantime, mp, s4, e4
  set the cursor of sprite 4 to 4
  set rantime to the ticks
  set mp to 4
  if the castNum of sprite 4 = e4 then
    set the castNum of sprite 4 to s4
    set md1 to the duration of cast s4 - 3
  else
    set md1 to the duration of cast (the castNum of sprite 4 + 1) - 3
    set the castNum of sprite 4 to the castNum of sprite 4 + 1
  end if
  set the cursor of sprite 4 to [50, 51]
end

on m5
  global md2, rantime, mp, s5, e5
  set the cursor of sprite 5 to 4
  set rantime to the ticks
  set mp to 5
  if the castNum of sprite 5 = e5 then
    set the castNum of sprite 5 to s5
    set md2 to the duration of cast s5 - 3
  else
    set md2 to the duration of cast (the castNum of sprite 5 + 1) - 3
    set the castNum of sprite 5 to the castNum of sprite 5 + 1
  end if
  set the cursor of sprite 5 to [50, 51]
end

on m6
  global md3, rantime, mp, s6, e6
  set the cursor of sprite 6 to 4
  set rantime to the ticks
  set mp to 6
  if the castNum of sprite 6 = e6 then
    set the castNum of sprite 6 to s6
    set md3 to the duration of cast s6 - 3
  else
    set md3 to the duration of cast (the castNum of sprite 6 + 1) - 3
    set the castNum of sprite 6 to the castNum of sprite 6 + 1
  end if
  set the cursor of sprite 6 to [50, 51]
end